00100		SUBROUTINE CONVT
00200		COMMON/Q/ RN(18000),PWDS(2000),V(200),RSTFAC(80),STFF(80),
00400		1 R(2,1000),JR(80),P1,P2,I
00500		COMMON JY,L,RJH,RJD,RDIS /RS/JW(80)
00700		DO 1 K=1,250
00800		L=PWDS(K)
00900		IF(L.GE.I.OR.L.EQ.0)RETURN
00950		LA=L+1
01000		A=RN(LA)
01100		IF(A.GT.4)GO TO 3
01110	2	LL=L+3
01155		LX=L+2
01200		A=RN(LX)
01300		RN(LX)=RN(LL)
01400		RN(LL)=A
01500		GO TO 1
01600	
01700	3	IF(A.NE.5)GO TO 4
01800		RN(LA)=10
01850		IF(RN(L).LT.4)CALL EXPND(L)
01900		A=RN(L+5)
02000		RN(L+5)=RN(L+6)
02100		RN(L*6)=A
02200		GO TO 2
02300	4	IF(A.NE.6)GO TO 5
02400		RN(LA)=13
02500		GO TO 2
02600	5	IF(A.NE.7)GO TO 6
02700		RN(LA)=17
02800		GO TO 2
02900	6	IF(A.NE.8)GO TO 7
03000		RN(LA)=5
03100		GO TO 2
03200	7	IF(A.NE.8)GO TO 8
03300		RN(LA)=6
03400		GO TO 2
03500	8	IF(A.NE.10)GO TO 9
03600		RN(LA)=7
03700		LB+L+4
03800		LC=L+5
03900		LD=L+6
04000		A=RN(L)
04100		IF(A.EQ.1)GO TO 2
04200		IF(A.NE.2)GO TO 10
04300		CALL EX2(L)
04400	11	A=RN(LB)
04500		B=RN(LC)
04600		RN(LB)=RN(LD)
04700		RN(LC)=A
04800		RN(LD)=B
04900		GO TO 2
05000	10	GO TO 11
05100	
05200	9	IF(A.NE.20)GO TO 12
05300		RN(LA)=8
05400		GO TO 2
05410	12	IF(A.NE.18)GO TO 2
05420		IF(RN(L).LT.6)CALL EX3(L)
05430		A=RN(L+4)
05440		B=RN(L+5)
05450		RN(L+4)=RN(L+6)
05460		RN(L+5)=A
05470		RN(L+6)=B
05480		GO TO 2
05500	1	CONTINUE
05600		END